home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0335.ZIP / SCRNMISC.C < prev    next >
Text File  |  1985-05-07  |  5KB  |  172 lines
  1. /**
  2. * These are functions written using the Lattice 2.12 compiler
  3. * that set, move and write to the CRT. Standard DOS Calls are
  4. * used. This is extracted from a larger program
  5. *
  6. * Garth Kennedy    Hinsdale, Ill  9 Nov 1984
  7. **/
  8.  
  9. #include "_main.c"
  10. int curpos[6];                 /* cursor position array */
  11. /**
  12. * curpos[0] - text row,              curpos[3] - dot row    
  13. * curpos[1] - text column            curpos[4] - dot column 
  14. * curpos[2] - display page number    curpos[5] - dot color  
  15. **/
  16.  
  17. /**
  18. * scrnclr()
  19. *
  20. * Clear screen    regardless of mode
  21. *
  22. * Garth Kennedy  29 Oct 1984
  23. **/
  24.  
  25. scrnclr()
  26. {
  27.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  28.     union REGS inregs;           /* input regs */
  29.     union REGS outregs;          /* output regs */
  30.  
  31.     inregs.h.ah = 0x0F;          /* return current video state */
  32.     int86(intno,&inregs,&outregs);
  33.  
  34.     inregs.h.ah = 0x00;          /* set display mode */
  35.     inregs.h.al = outregs.h.al;    /* to current mode */
  36.  
  37.     int86(intno,&inregs,&outregs);
  38.     
  39.     return;
  40. }
  41. /**/
  42.  
  43. /**
  44. * scrnpos(x,y)
  45. *
  46. * Move the cursor the the row, column set by x,y
  47. *
  48. * Garth Kennedy  29 Oct 1984
  49. **/
  50.  
  51. scrnpos(x,y)
  52. int x;          /* row */
  53. int y;          /* column */
  54. {
  55.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  56.     union REGS inregs;           /* input regs */
  57.     union REGS outregs;          /* output regs */
  58.  
  59.     inregs.h.ah = 0x02;          /* set cursor position */
  60.     inregs.h.dh = x;             /* row to go to */
  61.     inregs.h.dl = y;             /* column to go to */
  62.     inregs.h.bh = 0x00;          /* page 0 */
  63.  
  64.     int86(intno,&inregs,&outregs);
  65.     
  66.     return;
  67. }
  68. /**/
  69. /**
  70. *  scrnwhr(curpos)
  71. * 
  72. * return position (row/column) and page number
  73. * curpos [0] - row, curpos[1] - column, curpos[2] - page number
  74. * curpos[3] - dot row , curpos[4] - dot column, curpos[5] - color 
  75. * Garth Kennedy  30 Oct 1984
  76. **/
  77.  
  78. scrnwhr(curpos)
  79. int curpos[];
  80. {
  81.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  82.     union REGS inregs;           /* input regs */
  83.     union REGS outregs;          /* output regs */
  84.  
  85.     inregs.h.ah = 0x0F;          /* return current video state */
  86.     int86(intno,&inregs,&outregs);
  87.     curpos[2] = outregs.h.bh;           /* current page */
  88.     
  89.     inregs.h.bh = outregs.h.bh;  /* move current page */
  90.     inregs.h.ah = 0x03;          /* read cursor position */
  91.     int86(intno,&inregs,&outregs);
  92.     curpos[0] = outregs.h.dh;            /* row */
  93.     curpos[1] = outregs.h.dl;            /* column */
  94.     return;
  95. }
  96. /**/
  97. /**
  98. * setcrt(al)
  99. *
  100. * Set the CRT display mode
  101. *  al = 0    40X25 BW Text       al = 4  320X200 Color Graphics
  102. *  al = 1    40X25 Color Text    al = 5  320X200 BW Graphics
  103. *  al = 2    80X25 BW Text       al = 6  640X200 BW Graphics
  104. *  al = 3    80X25 Color Text    
  105. *
  106. * Garth Kennedy  9 Nov 1984
  107. **/
  108. setcrt(al)
  109. int al;
  110. {
  111.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  112.     union REGS inregs;           /* input regs */
  113.     union REGS outregs;          /* output regs */
  114.  
  115.     inregs.h.ah = 0x00;          /* set display mode */
  116.     inregs.h.al = al;            /* to requested mode */
  117.  
  118.     int86(intno,&inregs,&outregs);
  119.     
  120.     return;
  121. }
  122. /**/
  123. /**
  124. * grfpos(dx,dy,l)
  125. *
  126. * position the graphics "cursor" and turn to dot at that point to
  127. * the color given by l.- dx - row, dy - column
  128. *  !!! This does nothing with the text cursor  !!!
  129. *  Garth Kennedy  9 Nov 1984
  130. **/
  131.  
  132. grfpos(dx,dy,l)
  133. int dx,dy,l;
  134. {
  135.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  136.     union REGS inregs;           /* input regs */
  137.     union REGS outregs;          /* output regs */
  138.  
  139.     inregs.h.ah = 0x0C;          /* write dot */
  140.     inregs.x.dx = dx;            /* row to go to */
  141.     inregs.x.cx = dy;            /* column to go to */
  142.     inregs.h.al = l;             /* color value */
  143.  
  144.     int86(intno,&inregs,&outregs);
  145.     
  146.     return;
  147. }
  148.  
  149. /**
  150. *  grfwhr(curpos)
  151. * 
  152. * return color given dot position (row/column) 
  153. * curpos [0] - row, curpos[1] - column, curpos[2] - page number
  154. * curpos[3] - dot row , curpos[4] - dot column, curpos[5] - color 
  155. * Garth Kennedy  9 Nov 1984
  156. **/
  157.  
  158. grfwhr(curpos)
  159. int curpos[];
  160. {
  161.     int intno = 0x10;            /* interrupt to VIDEO_IO */
  162.     union REGS inregs;           /* input regs */
  163.     union REGS outregs;          /* output regs */
  164.     
  165.     inregs.x.dx = curpos[3];     /* dot row */
  166.     inregs.x.cx = curpos[4];     /* dot column */
  167.     inregs.h.ah = 0x0D;          /* read dot color */
  168.     int86(intno,&inregs,&outregs);
  169.     curpos[5] = outregs.h.al;    /* pull out color of dot */
  170.     return;
  171. }
  172.